10 TB=19712
50 MY=16384/SQR(3)-48
100 FORAN=0TO2*(null)STEP2*(null)/256
200 X=SIN(AN)*MY
300 Y=XAND255:POKETB,Y
400 Y=X/256:IFX<0THENY=Y+256
500 POKETB+512,Y
600 TB=TB+1:NEXT